home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
jazclib1.arc
/
JZSAVWND.C
< prev
next >
Wrap
Text File
|
1986-05-28
|
779b
|
28 lines
/*
┌────────────────────────────────────────────────────────────────────────────┐
│ Title : jzsavwnd │
│ Purpose : Copy a window into a buffer. │
│ │
│ Written by Jack Zucker - 75766,1336 301-794-5950 on 1/15/85 │
└────────────────────────────────────────────────────────────────────────────┘
*/
#include <jaz.h>
#include <jzscreen.h>
jzsavwnd ( fwindow )
TWINDOW *fwindow;
{
int wscrseg,wdseg;
wdseg = getds();
if (MEMB(0x40,0x49)==3) /* true if color screen */
wscrseg = 0xB800; /* color mode */
else
wscrseg = 0xB000; /* mono mode */
moveb(wscrseg,fwindow->row1 * 160 + (fwindow->col1 << 1),
wdseg,fwindow->buf,fwindow->row2-fwindow->row1+1,
fwindow->col2-fwindow->col1+1);
}